home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_bas / mcsecure.zip / _HASHCO.FRM < prev    next >
Text File  |  1996-05-16  |  4KB  |  138 lines
  1. VERSION 4.00
  2. Begin VB.Form frmHashCoding 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Hash Coding"
  5.    ClientHeight    =   4245
  6.    ClientLeft      =   210
  7.    ClientTop       =   495
  8.    ClientWidth     =   6675
  9.    Height          =   4650
  10.    Left            =   150
  11.    LinkTopic       =   "frmHashCoding"
  12.    MaxButton       =   0   'False
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   4245
  15.    ScaleWidth      =   6675
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   150
  18.    Width           =   6795
  19.    Begin VB.TextBox Text1 
  20.       Height          =   285
  21.       Left            =   1350
  22.       TabIndex        =   3
  23.       Top             =   3510
  24.       Width           =   5235
  25.    End
  26.    Begin VB.ListBox List1 
  27.       Height          =   2955
  28.       Left            =   90
  29.       TabIndex        =   1
  30.       TabStop         =   0   'False
  31.       Top             =   360
  32.       Width           =   6495
  33.    End
  34.    Begin VB.Label Label4 
  35.       Appearance      =   0  'Flat
  36.       BackColor       =   &H80000005&
  37.       BorderStyle     =   1  'Fixed Single
  38.       ForeColor       =   &H80000008&
  39.       Height          =   285
  40.       Left            =   1350
  41.       TabIndex        =   5
  42.       Top             =   3870
  43.       Width           =   5235
  44.    End
  45.    Begin VB.Line Line1 
  46.       BorderColor     =   &H00FFFFFF&
  47.       BorderStyle     =   6  'Inside Solid
  48.       BorderWidth     =   2
  49.       X1              =   0
  50.       X2              =   6660
  51.       Y1              =   3420
  52.       Y2              =   3420
  53.    End
  54.    Begin VB.Label Label3 
  55.       Caption         =   "Hash coding is"
  56.       Height          =   195
  57.       Left            =   90
  58.       TabIndex        =   4
  59.       Top             =   3900
  60.       Width           =   1185
  61.    End
  62.    Begin VB.Label Label2 
  63.       Caption         =   "Enter a &string"
  64.       Height          =   195
  65.       Left            =   90
  66.       TabIndex        =   2
  67.       Top             =   3540
  68.       Width           =   1185
  69.    End
  70.    Begin VB.Label Label1 
  71.       Caption         =   "Hash Coding Samples"
  72.       Height          =   195
  73.       Left            =   90
  74.       TabIndex        =   0
  75.       Top             =   90
  76.       Width           =   6495
  77.    End
  78. End
  79. Attribute VB_Name = "frmHashCoding"
  80. Attribute VB_Creatable = False
  81. Attribute VB_Exposed = False
  82. Option Explicit
  83.  
  84. Private Sub Form_Load()
  85.  
  86.    Dim i          As Integer
  87.    Dim Tmp1       As String
  88.    Dim Tmp2       As String
  89.    Dim Data       As String
  90.    
  91.    Tmp1 = "Hash coding of '"
  92.    Tmp2 = "' is '"
  93.    
  94.    List1.Clear
  95.    
  96.    Data = "1"
  97.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  98.    Data = "12"
  99.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  100.    Data = "123"
  101.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  102.    Data = "1234"
  103.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  104.    Data = "12345"
  105.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  106.    Data = "123456"
  107.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  108.    Data = "1234567"
  109.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  110.    
  111.    List1.AddItem ""
  112.    
  113.    Data = "ABCDEFG"
  114.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  115.    Data = "ABCDEF"
  116.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  117.    Data = "ABCDE"
  118.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  119.    Data = "ABCD"
  120.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  121.    Data = "ABC"
  122.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  123.    Data = "AB"
  124.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  125.    Data = "A"
  126.    List1.AddItem Tmp1 + Data + Tmp2 + cHashMD5(Data) + "'"
  127.    
  128.    Text1.Text = "mc security"
  129.   
  130. End Sub
  131.  
  132.  
  133. Private Sub Text1_Change()
  134.    Label4.Caption = cHashMD5(Text1.Text)
  135. End Sub
  136.  
  137.  
  138.